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INTRODUCTION 

Create  Tape  System  2 (CTS2)  is  a part  or  a larger  software/hardware  integration  package 
designed  for  the  Mobile  Engineering  Test  System  (METS).  This  integration  package  uses  the 
Hewlett-Packard  9830A  programmable  calculator  to  replace  the  paper  tape  peripherals  and  the 
teletype  in  Hewlett-Packard  2100  Mini-Computer  systems.  CTS2  allows  writing  and  editing 
of  source  programs  in  FORTRAN,  ALGOL,  or  Assembly  Language.  Furthermore,  CTS2  can 
unction  in  a stand-alone  mode  so  that  any  properly  equipped  calculator  can  be  used  to  write 
source  programs  for  the  METS. 

CTS2  requires  the  following: 

9830A  Calculator  with  Matrix  ROM,  extended  10  ROM,  and  8K  Memory 

9866A  Thermal  Printer 

9865A  Cassette  Memory 

CTS2  Special  Function  Key  Overlay 

CTS2  Cassette  Tape  (files  0 and  I of  9830/2100  Interface  Tape) 

Premarked  cassette  tape  for  source  programs 

The  9865A  Cassette  Memory  must  be  set  to  select  Code  5 in  accordance  with  instructions 
in  the  Pheripheral  Manual. 

Source  programs  are  entered  from  the  9830  Calculator  keyboard  a line  at  a time.  Each 
line,  as  it  is  entered,  may  be  edited  using  standard  features  of  the  9830  Calculator.  Once 
entered,  a line  may  not  be  altered.  It  may,  however,  be  replaced  by  a new  line,  deleted,  or 
exchanged  with  some  other  line.  Moreover,  ail  or  selected  portions  of  a program  may  be  listed 
and,  at  any  time,  the  program  may  be  stored  on  a cassette  tape  file. 


The  calculator  assigns  a line  number  to  each  line  as  it  is  entered.  The  line  number  is 
oinn*  f?r.ec^tmg  PurP°ses  only  and  is  not  part  of  the  line  itself  nor  is  it  transmitted  to  the 
2100  Mini-Computer.  Line  numbers  should  not  be  confused  with  statement  numbers  in  FORTRAN 
or  with  Labels  in  Assembly  Language. 

The  reader  is  assumed  to  be  familiar  with  9830  Calculator  (to  the  extent  of  knowing  how 
to  operate  the  keyboard  and  to  load  cassettes)  and  also  with  cassette  tape  marking  if  no  pre- 
marked tapes  are  available.  Keys  or  combinations  of  keys  to  be  pressed  are  set  off  by  dashes 
Thus,  -PRESS-RUN-  means  to  press  the  key  labeled  RUN.  PRESS-LOAD  0 10  10-  means 
to  press  the  keys  labeled  LOAD  then  0 then  10,  then  10,  etc.  Dashes  are  u*d  only  as 
a notational  convenience  in  this  report  and  are  not  to  be  typed  on  calculator  keyboard  Labels 
for  the  special  function  keys  are  located  under  each  key  on  the  CTS2  special  function  key 
overlay,  which  should  be  in  place  when  using  CTS2.  A facsimile  of  the  overlay  is  shown  in 
Appendix  A. 


I 


Sj 


1 


| 

i 





5 


The  re™indet  o,  this  tepot,  is  divided  i^p-  P£  ^ - 

r„rCT?2JanSC- .‘.tXS.  «»«5»  knowledge  o<  9830  Caiculator  operation. 

CTS«i"oI^^^ 

c IS  the  CTS2  program  listing. 


6 


PART  I 


OPERATION  OF  CTS2 

1.  INITIAL  START-UP 

Begin  by  placing  the  cassette  tape  labeled  9830/2100  INTERFACE  1 in  the  calculator 
cassette  drive,  then  press  -SCRATCHA  , -LOAD  0,  10,  10-,  and  -EXECUTE-.  The  calculator 
will  respond  with  IF  EDIT,  INPUT  F#,  O.W.-1  on  the  display.  This  statement  is  short  for 
IF  YOU  WISH  TO  EDIT  A PROGRAM,  INPUT  THE  FILE  NUMBER  ON  WHICH  IT  IS 
STORED,  OTHERWISE  ENTER  -1.  To  edit  an  existing  program,  place  the  cassette  co^'n'"9 
it  in  peripheral  cassette  drive,  and  type  the  desired  program  file  number  followed  by  -EXECUTE- 
To  enter  a new  program,  type  -1  and  press  -EXECUTE,  After  a short  wait  the  calculator 
will  display  CTS2  COMMAND?.  The  calculator  is  now  ready  to  begin  entry  of  a new  program 
or  to  edit  an  existing  program.  Appendix  B is  a flow  chart  for  the  overall  CTS2  operation. 

Each  of  the  CTS2  special  function  keys  is  discussed  in  the  following  paragraphs.  The  three 
involving  program  line  entry,  NEXT,  REPLACE,  and  INSERT  BEFORE  are  treated  first, 
since  their  operation  differs  from  that  of  the  other  CTS2  commands. 

2.  LINE  ENTRY  COMMANDS 

Figure  1 is  a flow  chart  for  using  line  entry  commands.  An  abbreviated  form  of  this  flow 
chart  is  on  the  CTS2  special  function  key  overlay  itself  (Appendix  A).  The  important  thing 
to  remember  is  that  -RUN-  must  be  pressed  before  any  of  the  keys  NEXT,  REPLACE,  or 
INSERT  BEFORE.  This  is  indicated  on  both  flow  charts. 


Figure  1.  Line  Entry  Flow  Chart 
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3.  NEXT 

To  enter  the  first  line  of  a program  or  to  add  a line  at  the  end  of  lines  already  entered, 
use  NEXT.  This  is  the  function  normally  used  to  enter  a program.  Consecutive  line  numbers 
are  assigned  to  program  lines  as  they  are  entered.  For  example,  the  calculator  assigns  the  num- 
ber 1 to  the  first  line  entered  or,  if  lines  1 through  15  are  already  in  the  calculator,  16  is 
assigned  to  the  next  line  entered. 

Start  the  operation  by  pressing  -RUN-  and  then  the  special  function  key  -NEXT-.  The 
calculator  responds  with  ENTER  LINE  on  the  display.  Type  in  the  desired  line,  and  check 
it  carefully  for  errors.  All  of  the  editing  functions  of  the  calculator  are  available  for 
correcting  errors  at  this  time.  Once  -END  OF  LINE-  has  been  pressed,  the  line  editing 
functions  can  no  longer  be  used.  When  the  line  has  been  correctly  typed,  press  END  OF 
LINE-.  The  calculator  will  print  the  line,  together  with  its  line  number,  and  will  display 
PRESS  FINISH.  Press  -FINISH-;  and  after  a second  or  so,  CTS2  COMMAND?  will  be 
displayed.  This  means  the  calculator  is  waiting  for  another  CTS2  command. 

4.  REPLACE 


To  change  a line  previously  entered,  press  -RUN-,  and  then  press  -REPLACE-.  The 
calculator  will  display  # OF  LINE  TO  BE  REPLACED?.  Type  the  number  of  the  line  to 
be  replaced,  and  press  -EXECUTE-.  ENTER  LINE?  is  then  displayed.  Type  the  line  in, 
and  after  checking  for  mistakes,  press  -END  OF  LINE-;  at  this  time,  the  line  and  its  number 
are  printed.  When  PRESS  FINISH  appears  on  the  display,  press  -FINISH-.  CTS2  COMMAND? 
will  return  when  the  calculator  is  ready  to  accept  a new  command. 

5.  INSERT  BEFORE 

To  insert  a line  between  two  existing  program  lines,  press  -RUN-  then  -INSERT  BEFORE-. 
INSERT  BEFORE  LINE  #?  is  displayed.  Type  in  the  number  of  the  line  that  the  new  line  is 
to  precede,  and  press  -EXECUTE-.  (For  example,  to  insert  a line  between  lines  4 and  5,  type 
in  5.)  When  ENTER  LINE  appears,  type  the  line,  check  it,  and  press  -END  OF  LINE-.  The 
line  is  printed,  and  PRESS  FINISH  is  displayed.  Press  -FINISH-  after  a short  wait,  CTS2 
COMMAND?  will  return.  The  calculator  automatically  renumbers  the  lines  after  the  line  is 
inserted.  Thus,  in  the  example  used,  the  previous  line  5 will  become  line  6,  and  the  inserted 
line  will  be  line  5.  


To  insert  a block  of  consecutive  lines  before  some  line  (for  example,  before  line  15),  start 
with  the  last  line  in  the  block,  and  insert  it  before  line  15  using  INSERT  BEFORE.  Then  in- 
sert the  next  to  last  line  before  line  15  and  so  on  in  reverse  order,  always  inserting  before  line 
number  15  (each  line  as  it  is  entered  becomes  line  number  15).  Remember  that  this  operation 
has  caused  all  of  the  old  lines  starting  with  line  number  15  to  be  renumbered,  so  if  they  are 
to  be  referred  to  in  subsequent  CTS2  operations,  use  the  SLIST  command  to  obtain  a list 
of  the  program  with  the  new  line  numbers. 

6.  DELETE 

To  delete  either  a single  line  or  a block  of  consecutive  lines,  press  -DELETE-.  DELETE: 
ENTER  FIRST  AND  LAST  LINE  US?  is  then  displayed.  If  only  a single  line  is  to  be  deleted. 
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type  its  line  number  twice,  separated  by  a comma,  then  EXECUTE  . For  example  to  delete 
line  5,  press  5,  5-  then  press  EXECUTE-.  On  the  other  hand,  to  delete  a block  of  l>  les,  type 
the  line  number  of  the  first  line  to  be  deleted,  a comma,  and  the  line  number  of  the  last  line 
to  be  deleted.  Then  press  EXECUTE  . That  is,  to  delete  lines  6 through  9 inclusive,  type 
-6  9-  then  -EXECUTE-.  Both  of  the  lines  whose  numbers  were  entered  will  be  deleted, 
together  with  all  lines  in  between  them.  The  calculator  will  automatically  renumber  all  program 
lines  after  the  deleted  block  to  fill  in  the  gap  created  by  deletion.  The  operation  is  complete 
when  CTS2  COMMAND?  appears. 

7.  EXCHANGE 

To  exchange  a pair  of  lines,  press  -EXCHANGE-.  The  display  will  inquire  ENTER 
EXCHANGE  LINE  #S?.  Type  the  line  numbers,  separated  by  a comma,  of  the  two  lines  to 
be  interchanged,  and  press  -EXECUTE,  When  CTS2  COMMAND?  returns,  the  two  lines 
will  have  traded  places,  and  the  next  CTS2  command  can  be  given. 

8.  SAVE 

To  store  a program  or  a portion  of  a program  on  a cassette,  press  -SAVE-;  note  that  a 
premarked  cassette  must  be  in  the  peripheral  cassette  drive.  When  the  display  shows 
FILE  # FOR  STORAGE?,  type  the  file  number  on  which  the  program  is  to  be  stored  and 
press  -EXECUTE-  When' the  program  has  been  stored,  the  file  on  which  it  is  stored  is  printed 
along  with  the  program  length.  CTS2  COMMAND?  indicates  the  calculator  is  ready  to 
proceed.  A long  program  should  be  stored  from  time  to  time  as  it  is  entered,  since  any  momen- 
tary power  failure  will  erase  the  program  from  the  calculator  memory. 

9.  SOURCE  LIST 

To  list  program  lines  already  in  the  calculator  memory,  press  -SLIST-,  and  LIST:  EN  I ER 
FIRST  AND  LAST  LINE  #S?  will  appear  on  the  display.  Type  the  line  numbers  of  the  first 
and  last  lines,  separated  by  a comma,  and  press  -EXECUTE-.  Instead  of  typing  the  last  line 
number,  some  large  number  such  as  999  may  be  used.  This  will  result  in  a print  out  of  all 
program  lines  in  the  memory,  starting  with  the  first  line  number  entered.  The  listing  produced 
will  have  line  numbers  on  the  extreme  left  of  each  line.  The  actual  line  itself  begins  in  column 
six.  Remember  that  the  line  numbers  are  attached  for  editing  purposes  only  and  are  not ^parts 
of  the  program  lines.  Line  numbers  are  not  transmitted  to  the  2100  Mini-Computer.  When 
the  listing  is  complete,  CTS2  COMMAND?  returns  to  the  display. 

10.  RESTART 

Press  -RESTART-  to  erase  all  program  lines  currently  entered  or  to  load  another  program 
from  a cassette.  The  display  shows  IF  EDIT  ENTER  F#  , O.W.  -1.  From  this  point  follow 
the  instructions  given  under  the  INITIAL  START-UP  section  of  this  report.  If  -RESTART- 
is  pressed  inadvertently,  any  program  lines  already  in  the  machine  will  be  lost.  For  th's 
-RESTART-  is  located  in  the  upper  case  so  that  -SHIFT-  must  be  held  down  while  -RESTART 

is  pressed. 
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11.  TYPING  AID  KEYS 


The  typing  aid  keys  are  not  CTS2  commands  but  instead  provide  conveniences  and  special 
symbols.  Pressing  -TAB  6-  inserts  six  spaces  at  the  start  of  a program  line  useful  for  unnum- 
bered FORTRAN  statements  or  unlabeled  Assembly  Language  statements  as  both  then  begin 
in  columr  7. 

The  remaining  typing  aids  are  special  symbols  for  ALGOL  programs  and  are  typed  by 
holding  down  -SHIFT-  and  then  pressing  the  special  function  key  below  which  they  appear. 

The  square  brackets  ( and  ] are  displayed  and  printed  as  such.  The  reverse  slant  \ is 
printed  as  it  appears  and  is  displayed  as  a 5 by  7 array  of  dots.  The  left  arrow  «-  is  displayed 
as  lazy  T F-  and  printed  as  an  underline  _ . The  symbol  @ is  obtained  by  holding 
down  -SHIFT-  and  pressing  -RES-. 

12.  PROGRAMMING  LIMITATIONS 

Program  lines  are  limited  to  50  characters  (including  spaces).  The  maximum  number  of  lines 
is  220.  Quotes  may  not  be  used  in  ALGOL  or  FORTRAN  programs;  instead,  use  an  apostrophe 
wherever  quotes  would  have  normally  appeared.  The  ASCII  code  for  quotes  will  be  transmitted 
when  an  apostrophe  is  encountered.  This  means  that  the  apostrophe  cannot  be  used  for  any 
reason  other  than  replacing  a quotation  mark. 

13.  PREMARKED  TAPES 

As  previously  noted,  the  tape  on  which  a source  program  is  to  be  stored  should  be 
premarked.  The  following  convention  has  been  established.  Even  numbered  files  are  used  for 
storing  source  programs.  The  odd  numbered  file  following  each  even  file  is  used  to  store  the 
corresponding  object  program.  That  is,  if  a certain  source  program  is  stored  on  file  number  0, 
the  object  program  that  it  produces  upon  compiling  is  stored  on  file  number  1.  If  the  number 
of  program  lines  is  known  ahead  of  time,  the  size  file  required  for  the  source  program  is  the 
number  of  lines  plus  8 times  26.  Marking  the  next  file  two-thirds  that  size  will  generally  be 
large  enough  for  the  object  program.  For  large  programs,  mark  the  even  numbered  files  of  a 
cassette  for  file  length  6000  and  the  odd  files  with  length  3800.  This  marking  arrangement 
will  be  large  enough  to  accept  the  longest  program  that  can  be  written  using  CTS2.  It  is 
recommended  that  programs  in  a developmental  state  be  stored  on  a scratch  tape  with  maximum 
sized  files  and  then  be  transferred  to  a tape  with  custom  file  sizes  when  the  program  reaches 
production  status.  For  further  information  on  cassette  tapes,  consult  the  9830  Calculator 
Operating  Manual. 

14.  ERRORS  AND  ERROR  MESSAGES 

When  entering  a line  and  -END  OF  LINE-  has  just  been  pressed,  REDUCE  LINE  BY  5 
ENTER  LINE  may  appear.  This  means  the  maximum  line  length  of  50  characters  has  been 
exceeded  by  5.  Rewrite  the  program  line  to  reduce  the  length  by  5.  Type  it  in  and  press 
-END  OF  LINE-  and  -FINISH-. 

Another  error  message  which  may  appear  is  ERROR  73  IN  LINE  130.  Often  this 
results  from  holding  the  shift  key  down  while  typing  an  alpha  character,  i.e.,  A through  Z. 

This  creates  a letter  which  is  not  recognized  by  CTS2  although  the  usual  alpha  character  is 
printed  and  displayed.  Re-enter  the  line,  being  careful  not  to  hold  the  shift  key  down  when  it 
is  not  needed. 
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Not  pressing  RUN  before  pressing  NEXT  , 
results  in  ERROR  41  IN  LINE  30.  Press  END  , 
special  function  key. 


INSERT  BEFORE  , or  REPLACE- 
RUN-,  and  then  the  desired  line  entry 


For  other  errors,  no  specific  advice  can  be  given.  Just  press  -END-  and  continue  as 
though  CTS2  COMMAND?  has  been  displayed.  If  this  fails,  press  RESTART-,  and  reload 
or  retype  the  source  program. 

15  COPYING  SOURCE  PROGRAMS 

CTS2  may  be  used  to  produce  additional  copies  of  source  programs  on  other  tapes  by 
first  loading  the  source  program  into  the  calculator  as  if  to  edit  it.  Then  place  the  cassette 
onto  which  the  program  is  to  be  copied  in  the  periphera1  cassette  drive  and  use  the  SAVE 
CTS2  command. 

16.  A TYPICAL  USE  OF  CTS2 

Assume  that  a new  FORTRAN  program  is  to  be  run  on  the  9830/2100  system.  The 
tape  labeled  9830/2100  INTERFACE  is  placed  in  the  calculator  cassette  drive,  and  a premarked 
tape  is  placed  in  the  peripheral  cassette  drive.  The  premarked  tape  has  files  4 and  5 available 
for  this  program.  After  -SCRATCHA-  is  pressed,  -LOAD  0,  10,  10-  is  pressed  to  start  CTS2. 
When  IF  EDIT,  INPUT  F#  O.W.  -1  appears,  -1  is  entered  since  a new  program  is  to  be 
input.  After  a short  wait,  CTS2  COMMAND?  is  displayed.  The  first  line  FTN,  B,  T is 
entered  by  pressing  -RUN-,  -NEXT-,  and  then  typing  -FTN,  B,  T-  when  ENTER  LINE 
appears.  The  first  20  lines  of  the  program  are  entered  in  similar  fashion  using  the  NEXT 
command.  For  safety,  -SAVE-  is  pressed,  and  the  calculator  responds  with  FILE  # FOR 
STORAGE?;  4 is  entered,  and  the  part  of  the  program  entered  so  far  is  stored  on  cassette 
file  number  4,  a file  previously  marked  with  a length  of  6000  words.  How  often  SAVE  is 
used  is  determined  by  the  user  but  approximately  every  20  lines  is  recommended.  When  storing 
is  complete,  NEXT  is  used  repeatedly  to  enter  the  next  20  program  lines,  SAVE  is  again  used, 
and  so  on,  20  lines  at  a time  until  the  whole  program  has  been  entered. 

Each  line  has  been  printed  as  it  was  entered,  so  a listing  of  the  program  is  available.  This 
listing  is  checked  for  errors,  and  if  none  are  detected,  -SAVE-  is  pressed  to  store  the  program 
which  is  then  input  to  the  2100  Computer  using  the  9830  Calculator  as  a source  tape  photo- 
reader. Since  this  is  the  first  time  the  program  has  been  compiled,  many  error  messages  maybe 
printed  out.  The  source  program  listing  is  again  examined,  and  notations  made  on  it  to 
correct  errors.  CTS2  is  reloaded  into  the  calculator,  and  this  time  when  IF  EDIT,  INPUT  F# 

O.W.  -1  appears,  4 (the  file  on  which  the  source  program  was  stored)  is  entered.  When  the 
source  program  has  been  loaded,  CTS2  requests  a command.  The  functions  REPLACE, 

INSERT  BEFORE,  DELETE,  and  EXCHANGE  are  used  to  correct  the  FORTRAN  program. 
Changes  are  made  to  the  program  from  the  bottom  up,  since  any  time  a line  is  inserted  or  deleted, 
all  lines  after  it  are  renumbered;  hence,  the  line  numbers  on  the  old  listing  no  longer  correspond 
to  the  correct  lines.  If  the  changes  were  numerous,  -SUST-  would  be  pressed  to  get  an 
updated  listing  of  the  program  to  work  from.  When  the  corrections  have  all  been  made, 

-SAVE-  is  pressed;  and  after  the  corrected  program  is  stored,  SLIST  is  again  used  to  obtain 
a listing  of  the  corrected  program.  Hopefully,  the  program  now  compiles  correctly,  and  its 
object  program  is  stored  on  file  5 just  after  the  source  program  on  file  4. 
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PART  II 

THEORY  OF  OPERATION 

1.  OVERVIEW 

The  CTS2  program  sought  to  solve  the  problem  of  storing  ASCII  program  lines  in  the 
9830  Calculator.  The  form  of  storage  had  to  be  suitable  for  editing  and  for  output  to  the 
2100  Mini-Computer,  and  since  input  is  made  from  the  calculator  keyboard,  the  data  had 
to  be  initially  in  the  form  of  a string  variable.  The  maximum  length  of  a string  is  255,  which 
would  be  adequate  to  contain  a single  line;  however,  only  26  such  strings  are  available.  In 
addition  to  this  restriction,  complicated  indexing  to  input  or  output  these  lines  would  also 
be  required.  In  particular,  indexing  would  have  to  be  accomplished  by  passing  control  to  a 
different  program  line  for  each  string  variable.  Packing  more  than  one  line  into  a single  string 
variable  produces  additional  program  lines  and  an  even  more  unwieldy  indexing  scheme.  From 
these  considerations,  it  was  clear  that  program  storage  would  have  to  be  in  an  integer  array. 
Further,  to  make  rapid  line  editing  possible,  a separate  index  array  was  incorporated. 

2.  FOUR  ROLES  OF  THE  SPECIAL  FUNCTION  KEYS 

First,  the  special  function  keys  are  vital  to  CTS2  operation  because  they  allow  the  9830 
Calculator  memory  to  be  viewed  by  two  different  COM  statements.  It  is  this  feature  that  allows 
rapid  conversion  between  the  string  and  integer  data  types.  The  three  line  entry  keys,  INSERT 
BEFORE,  REPLACE,  and  NEXT,  each  have  a string  variable  in  their  COM  statements  whereas 
the  main  program  has  an  integer  array.  Pressing  -RUN-  ar.d  then  a line  entry  key  causes  the 
calculator  to  view  the  memory  locations  as  string  data.  While  in  this  mode,  the  desired  program 
line  is  input  into  the  string  variable.  The  FINISH  key  is  pressed  to  execute  a RUN  command 
which  returns  control  to  the  COM  statement  in  the  main  program;  thus,  converting  the  line 
into  integer  data. 

This  use  of  FINISH  is  an  example  of  the  second  role  of  the  special  function  keys.  That 
is,  causing  a calculator  command  to  be  executed.  The  keys  DELETE,  SLIST,  RESTART, 
FINISH,  SAVE,  and  EXCHANGE  all  execute  a RUN  command  at  a particular  line  number 
of  the  main  program  corresponding  to  their  function. 

The  third  role  of  the  special  function  keys  is  to  store  a function  subroutine  where  it  is 
accessible  to  the  programs  stored  on  the  line  entry  keys.  This  function,  FNI,  is  an  input  and 
conditioning  routine  for  entering  the  string  variable,  A$. 

In  their  fourth  role,  the  special  function  keys  are  used  as  typing  aids  for  spacing  the  start 
of  unlabeled  program  lines  and  for  typing  special  characters  not  present  on  the  9830  keyboard. 

3.  STRING  INPUT 

Source  program  lines  are  input  from  the  keyboard  into  a string  array.  Because  quotation 
marks  are  used  as  string  delimiters,  they  canoarfSTpart  of  input  strings;  instead,  the  apostrophe 
is  used  in  place  of  quotation  marks.  Whenever  the  interface  program  CTS2  PHOTO  READER 
encounters  apostrophes,  it  replaces  them  by  the  ASCII  code  for  quotation  marks.  This  slows 
the  output,  but  the  convenience  of  quotes  in  FORTRAN  outweighed  this  disadvantage. 
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4.  STRING  TO  INTEGER  CONVERSION 

Once  a Droqram  line  has  been  input  into  a string  variable,  it  must  be  converted  into 
inte^r'format^orTtorage  in  the  program  data  array.  Character  by  character  decoding  was 
used^nitially  but  was  extremely  time  consuming.  This  difficulty  was  overcome  by 
the  input  suing  array  by  a one  dimensional  integer  array  using  the  COM  statement.  Two  ^ddi- 
tionaTkeys  must  be  preied  tor  each  line  entry.  but  this  »as  judged  to  be  less  obieot, unable 
than  waiting  10  seconds  or  more  between  line  entry  for  the  conversion  to  take  place. 

5.  PROGRAM  LINE  STORAGE  ARRAY 

Program  lines  are  stored  in  an  integer  array  dimensioned,  SI  (229,26).  The  first  nine  rows 
of  this^array  are  used  primarily  for  storing  a folded  one  dimensional  index  array.  The  remaining 
220 ^ Z u seSlo  store  soiree  program  lines.  One  line  is  stored 

its  line  length  which  is  the  last  element  of  the  row.  Since  each  row  then  has  25  integer  vanao 
available  for  program  line  storage,  a program  line  may  have  a maximum  of  50  characters  (two 
^ nim^ic  characters  are  stored  per  integer  array  variable)  This  means  that  some  space 
is  wasted  for  short  program  lines.  A denser  packing  was  considered  but,  with  a maximum 
one  dimensional  array  size  of  256,  indexing  becomes  complex  and  time  consuming. 

Line  length  is  included  with  each  line  for  the  benefit  of  the  output  Program,  which  generates 
a carriage  return/line  feed  whenever  the  proper  number  of  characters  has  bwn  transmitted.  Li 
S?s£S  in  nun.be,  of  won*  Each  integer  array  .enable  it .on.  16  -> 

input  line  has  an  odd  number  of  characters,  the  last  word  is  padded  with  the  ASCII  code  tor 
BLANK;  thus,  line  length  is  always  a whole  number. 

Program  lines  need  not  appear  in  sequential  order  in  the  S array.  An  index  array,  dimensioned 
11(220)  records  the  ordering  of  program  lines  within  the  S array.  For  example  the  row  number 
in  S of  the  first  line  is  the  value  of  1(1).  The  second  line  is  in  row  number  1(2)  and  the  n 
line-in  row  l(N).  This  indexing  scheme  is  used  because  it  affords  rapid  line  deleuonand  insertion, 
as  opposed  to  an  unindexed  array  in  which  the  lines  themselves  must  be  manipukrted  When 
programs  are  stored  or  retrieved,  the  index  array  is  packed  into  or  unpacked  from  ' f'rs* 
n|m  rows  of  S.  The  first  element  of  each  of  these  rows  is  used  as  a program  variable  or  left 
blank  In  other  words,  only  the  last  25  locations  of  each  row  are  used  to  store  index  information. 
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APPENDIX  B 

OPERATION  FLOWCHART 


SPECIAL  FUNCTION 
KEYS  LOADED 


MODIFY  ^ 

EXISTING 

PROGRAM? 


ENTER  FILE  0 


LOADS  PROGRAM 


INITIALIZE 

VARIABLES 


UNPACK  INDEX  ARRAY 
AND  LENGTH 


indicates  branch  determined  by  use  from  keyboard  by  pressing 
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APPENDIX  C 
PROGRAM  LISTING 


t - I I :•!  || : 


»••;  p 

i m . ^ 

II  H IF  i 

L 

Oh 

LEV  1 

30  Ii 

if  l ] 

40  R 

t:  l»  I r-i 

■r 

50  DISP 

if  eh 

bU  i 

NPUT 

1 1 

70  IT  N 0 1HF.N 

80  ! 

.OUD 

DfiTR 

90  B1=FN 

l < 1 :• 

! 00 

R=SC 

t :■  n 

110 

T =SC 

3 » 1 1 

120 

GOTO 

350 

1 30 

FOR 

[ = 1 TO 

140 

IC  I I 

= I +9 

150 

NEXT 

I 

160 

R=T  = 

1 

170 

GOTO 

250 

1 80 

DF.F 

FHT'X9 

1 90 

IU  = 1 

' I > t tit  tl’ 


, I • . i 

IMPERII- El'  ' 


F#  .<  i- U. 


200  FOP  1 = 1 TO  9 
210  FOF:  J=2  TO  26 
220  IF  X 9 THEM  240 
230  St  I < J ]=  I C D 1 1 
240  It  LI  ]=£t I ’ J I 
250  IH =D 1+1 

260  IF  HI -*-22!  THEM  2^0 
270  HE XT  J 
280  NEXT  1 
200  RETURN  0 

30O  I'EF  FHLC:>=X*(X<R>-mR-1  >)-  X >=  R> 

310  FOR  J=1  TO  HI 
320  SCD2jJ]=TL J] 

330  NEXT  J 
348  SC  D2"  26  1=D1 
350  R-R+Iif  l I 

360  SC  3 1 1 ]=T=T  * T >R  +P  * '■  T F 
370  DC  1 1=1 
380  GOTO  850 

390  DISP  "DELETE!  EM i ER  1ST  » LOST  LINE  #L 

40O  INPUT  NjL 

410  L=FNLL 

420  B1=L-N+1 

430  V=R-D1 

440  D2=R-1-L 

450  MOT  J=I 

460  FOR  I-N  TO  V-l 

470  1C  T > it  I+Bl  1 

480  NEXT  1 

490  FOR  l='v'  to  R- 1 

5O0  IC I 1=JE I B2  1 

510  NEXT  I 

520  R=V 

530  GOTO  858 

540  DiSF-  “ENTER  EXCHHNGE  LINE  #S"5 
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t,  s III 
560 
570 
58  0 
590 
600 
6 1 0 
620 
630 
640 
650 
660 
670 
630 
690 
708 
713 
720 
730 
743 


t DU 

760 

770 

780 

790 

800 

810 

820 

830 

840 

858 

860 


INPUT  !l> L , 

Dl-ICLJ 
If.  L ]='l  CM3 
ienj-l: 

GOTO  350 

H I • P "FILE  * FUR  rORNGE 1 • 

INPUT  H 

or.  i < i i=r 

REDIM  SC  ,+T<26] 

Di=FNT0 

STORE  DhTH  #5jN 

PRINT  -PROGRAM  IN  r 1LE "U  'LtHbTH  8 4 I 
RED IM  . C 229 j 26  ] 

GOTO  850 

I t='  I ' tiX’/.k’  0*+>~. /0123456, '19!  ? - 
i:XL  31  ]="  • *>eflBCDEF GH I JKLMNOPORSTUVWr 
DI-;-;P  LIST:  ENTER  1 ST  AND  LOST  LINE 
INPUT  Nil. 

PRINT  LIN2 
FOR  T - i I TO  FULL 
IU -IE  1 I 

FOR  J-l  TO  SEDIjcLI 
Ii  2 - Ei  I A N D < R 0 T < S EIH-  Jl»  8 ) j 1 2 1 
DTE  2*J-l  I=C#E  B2?  Du:  1 
D 2=B I AND ( OC D 1 < J 1 ■ 1 27  > -3 1 
DTE  2* J I=C$E D2i  D2 I 
NEXT  J 
PRINT  1 1 DT 
N L T I 
PRINT  LIN2 

DISP  ThBS" CT32  COMilRHD?" 

END 


,rD- 


1 7> 

5 s I 


-31 
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♦RUN390-* 


*RIJN540* 


1 6 COM  DIE  23’  fll [ 89  ],  1 IC  2203?  Dl « D2>  R 
20  DISP  ' INSERT  BEFORE  LINE  #"? 

30  INPUT  N 
35  D2=IIR3 
40  D1=FNIN 

78  FOR  I =R  TO  N+l  STEP  -1 
80  II  I ]= I C 1-1  I 
90  NEXT  I 
100  IIN ]=D2 

110  DISP  TABS "PRESS  FINISH" 

120  END 


10  COM  DIE  2 3>  A$l 80  ]? Ill  220  3j  Dl > D2>  R 
20  DISP  # OF  LINE  TO  BE  REPLACED" ? 
30  INPUT  N 
35  D2=ICN3 
40  D1=FNIN 
60  DC  1 ]=0 

70  DISP  TAB9" PRESS  FINISH" 

30  END 


10  COM  D I C 2 ] > A$I  80  3 > 1 1 C 220  ] j .D 1 j D2 » R 
20  D2=IC  R 3 
25  D1=FNIR 

45  DISP  TFIB9" PRESS  FINISH" 

55  END 


*RUN600* 
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USAF  (SAMI) 

ASD  (ENYS) 

AFWL  (LR) 

AUL  (AUL-LSE-70  239) 

DDC  (TC) 

Ogden  ALC  (MMNOP) 

AFIS  (INTA) 

448  SMS  (Capt  Murley) 

AMC  (AMSMI-REO/Don  Smith) 
Hewlett-Packard  (Bob  McCoy) 
ASD  (ENYEHM) 

TAWC  (TRADOCLO) 

AFATL  (DL) 

AFATL  (DLMT) 

AFATL (DLMA) 

AFATL  (DLMM) 

AFATL  (DLOSL) 


INITIAL  DISTRIBUTION 

1 
1 
1 
1 
2 
2 
1 
2 
1 
1 
1 
2 
1 

10 
2 
2 
2 
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